-- card: 3717 from stack: in
-- bmap block id: 5240
-- flags: 4000
-- background id: 2642
-- name: TheIndex
----- HyperTalk script -----
on openCard
  set lockText of card field "finder" to true
end openCard




-- part 1 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=269 top=97 right=326 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 12
-- part name: finder
----- HyperTalk script -----
on mouseUp
  put the optionkey into keystate
  if the selection is empty then
    set lockText of the target to false
    repeat two times
      click at the clickLoc
    end repeat
    put the selection into holder
    push card
    visual effect wipe right to black
    visual effect wipe left
    find holder in field keywords -- This line is the link
    if the result is not empty then
      answer "No match for keyword " &quote& holder&quote
      pop card
    end if
  end if
  click at 0,0 --disable selection
  set lockText of the target to true
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=396 top=54 right=75 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Re-Index
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  set loc of message to 10,170
  play harpsichord c
  put "Sorting Reference Cards . . . Please Wait" into message
  put empty into card field finder
  set the cursor to 4
  sort by field keywords
  get the number of cards
  put it into x
  put 0 into y
  subtract 1 from x
  play harpsichord e
  flash 1
  put "Getting Keywords . . . Please Wait" into message
  set lockscreen to true
  repeat x
    add 1 to y
    go next
    get field keywords
    put it into line y of card field finder of card 1
  end repeat
  go card 1
  set lockscreen to false
  play harpsichord g
  flash 1
  put "Compacting Stack . . . Please Wait" into message
  doMenu "Compact Stack"
  play harpsichord c5 g4 e c
  flash 1
  put "Done" into message
  wait 2 seconds
  hide message
end mouseUp




-- part 18 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=172 top=92 right=140 bottom=266
-- title width / last selected line: 0
-- icon id / first selected line: 24209 / 24209
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XTButton
----- HyperTalk script -----
on mouseUp
  get the short name of target
  visual effect iris close to black
  visual effect iris open to white
  visual effect dissolve
  go to stack it
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=313 top=54 right=76 bottom=379
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Key
----- HyperTalk script -----
on mouseUp
  ask "Enter New Keyword:"
  if it is not empty then
    put it into keyname
    doMenu New Card
    set the name of this card to keyname
    put keyname into field keywords
    get the number of lines in card field finder of card theIndex
    put keyname into line it+1 of card field finder of card theIndex
  end if
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=9 top=315 right=342 bottom=30
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Xref on Home
----- HyperTalk script -----
on mouseUp
  play harpsichord c6
  set the cursor to 4
  put "Putting button into home stack...Please wait" into message
  get the short name of this stack
  put it into nameholder
  show card button "XTButton"
  choose button tool
  click at the loc of button "XTButton"
  doMenu "Copy Button"
  go home
  doMenu "Paste Button"
  set the name of button "XTButton" to nameholder
  go back
  hide button XTButton
  play harpsichord c5
  put "Done." into message
  wait 30 ticks
  hide message
  choose browse tool
end mouseUp




-- part contents for background part 1
----- text -----















-- part contents for card part 1
----- text -----

applications
AwayFromHome
HyperCard
HyperText
modifications
paint
Patrick
Ristau
shareware
XrefText5